﻿Imports Gift.BL
Imports Gift.BL.Validation

Public Class frmPersonEditAdd

    Private _person As Person

    Public Property Person As Person
        Get
            _person.Aanspreking = txtAanspreking.Text
            _person.Email = txtEmail.Text
            _person.Land = txtLand.Text
            _person.Mobiel = txtMobiel.Text
            _person.Naam = txtNaam.Text
            _person.Plaats = txtPlaats.Text
            _person.Adreslijn1 = txtAdreslijn1.Text
            _person.Adreslijn2 = txtAdreslijn2.Text
            _person.Postcode = txtPostcode.Text
            _person.Telefoon = txtTelefoon.Text
            _person.Voornaam = txtVoornaam.Text
            Return _person
        End Get
        Set(ByVal Value As Person)
            _person = Value
            txtAanspreking.Text = _person.Aanspreking
            txtEmail.Text = _person.Email
            txtLand.Text = _person.Land
            txtMobiel.Text = _person.Mobiel
            txtNaam.Text = _person.Naam
            txtPlaats.Text = _person.Plaats
            txtAdreslijn1.Text = _person.Adreslijn1
            txtAdreslijn2.Text = _person.Adreslijn2
            txtPostcode.Text = _person.Postcode
            txtTelefoon.Text = _person.Telefoon
            txtVoornaam.Text = _person.Voornaam
        End Set
    End Property

    Private Sub btnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOk.Click
        Dim err As String = ""
        If validatePerson(txtVoornaam.Text, txtNaam.Text, txtAdreslijn1.Text, txtPostcode.Text, txtLand.Text, txtEmail.Text, txtTelefoon.Text, txtMobiel.Text, err) Then
            Me.DialogResult = Windows.Forms.DialogResult.OK
        Else
            MessageBox.Show(err, "Foute invoer", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End If
    End Sub


    Private Sub btnAnnuleren_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAnnuleren.Click
        Me.DialogResult = Windows.Forms.DialogResult.Cancel
    End Sub


End Class